%!PS-Adobe-2.0 EPSF-1.2
%%Creator:XDRAW
%%Title:
%%CreationDate:
%%DocumentProcSets:XDRAW 0 0
%%DocumentSuppliedProcSets:XDRAW 0 0
%%DocumentFonts:
%%BoundingBox:
%%Template:
%%TemplateBox:
%%PageOrigin:0 0
%%PrinterName:PostScript
%%PrinterRect:
%%EndComments
%%BeginProcSet:XDRAW 0 0
%%================== Begin_Procedure_definitions =====================
/XDRAW dup 100 dict def load begin
/Version 0 def
/Revision 0 def
%----------------------- definition operators ------------------------
/bdef {bind def} bind def
/ldef {load def} bdef
/xdef {exch def} bdef
%---------------------- graphic state operators ----------------------
/_K {3 index add neg dup 0 lt {pop 0} if 3 1 roll} bdef
/_k /setcmybcolor where 
{/setcmybcolor get} {{1 sub 4 1 roll _K _K _K setrgbcolor pop} bind} ifelse def
/g {/_b xdef /p {_b setgray} def} bdef
/G {/_B xdef /P {_B setgray} def} bdef
/k {/_b xdef /_y xdef /_m xdef /_c xdef /p {_c _m _y _b _k} def} bdef
/K {/_B xdef /_Y xdef /_M xdef /_C xdef /P {_C _M _Y _B _k} def} bdef
/d /setdash ldef
/_i currentflat def
/i {dup 0 eq {pop _i} if setflat} bdef
/j /setlinejoin ldef
/J /setlinecap ldef
/M /setmiterlimit ldef
/w /setlinewidth ldef
%--------------------- path construction operators -------------------
/_R {.25 sub round .25 add} bdef
/_r {transform _R exch _R exch itransform} bdef
/c {_r curveto} bdef
/C /c ldef
/v {currentpoint 6 2 roll _r curveto} bdef
/V /v ldef
/y {_r 2 copy curveto} bdef
/Y /y ldef
/l {_r lineto} bdef
/L /l ldef
/m {_r moveto} bdef
%------------------------- error operators ---------------------------
/_e [] def
/_E {_e length 0 ne {gsave 0 g 0 G 0 i 0 J 0 j 1 w 10 M [] 0 d
/Courier 20 0 0 1 z [0.966 0.259 -0.259 0.966
_e 0 get _e 2 get add 2 div _e 1 get _e 3 get add 2 div] e _f t T grestore} if} bdef
/_fill {{gsave fill grestore} stopped
{/_e [pathbbox] def /_f (ERROR: can't fill, increase flatness) def n _E} if} bdef
/_stroke {{stroke} stopped
{/_e [pathbbox] def /_f (ERROR: can't stroke, increase flatness) def n _E} if} bdef
%--------------------- path painting operators -----------------------
/n /newpath ldef
/N /n ldef
/F {p _fill} bdef
/f {closepath gsave F grestore} bdef
/S {gsave P _stroke grestore} bdef
/s {closepath S} bdef
/B {gsave F grestore S} bdef
/b {closepath B} bdef
%---------- text block construction and painting operators -----------
/_s /ashow ldef
/_S {(?) exch {2 copy 0 exch put pop dup false charpath currentpoint _g setmatrix
_stroke _G setmatrix moveto 3 copy pop rmoveto} forall pop pop pop n} bdef
/_A {_a moveto _t exch 0 exch} bdef
/_L {0 _l neg translate _G currentmatrix pop} bdef
/_w {dup stringwidth exch 3 -1 roll length 1 sub _t mul add exch} bdef
/_z [{0 0} bind {dup _w exch neg 2 div exch neg 2 div} bind {dup _w exch neg exch neg} bind] def
/z {_z exch get /_a xdef /_t xdef /_l xdef exch findfont exch scalefont setfont} bdef
/_g matrix def
/_G matrix def
/_D {_g currentmatrix pop gsave concat _G currentmatrix pop} bdef
/e {_D p /t {_A _s _L} def} bdef
/r {_D P /t {_A _S _L} def} bdef
/a {_D /t {dup p _A _s P _A _S _L} def} bdef
/o {_D /t {pop _L} def} bdef
/T {grestore} bdef
%------------------- group construction operators --------------------
/u {} bdef
/U {} bdef
%------------------- font construction operators ---------------------
/Z {findfont begin currentdict dup length 1 add dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall /FontName exch def dup length 0 ne
{/Encoding Encoding 256 array copy def 0 exch {dup type /nametype eq
{Encoding 2 index 2 index put pop 1 add} {exch pop} ifelse} forall} if pop
currentdict dup end end /FontName get exch definefont pop} bdef
end
%%EndProcSet
%%==================== End_Procedure_Definitions =====================
%%EndProlog
%%BeginSetup
XDRAW begin
n
u
0 g
0 G
0 i
1 J
1 j
0.24 w
4 M
[]0 d
%%EndSetup
%%========================== Begin_Program ===========================
%%Begin_Program
%%End_Program
%%=========================== End_Program ============================
%%Trailer
_E end